#!/usr/bin/perl
#这里需要注目perl的目录,我这里用xampp的prel,一般情况下
my $mapW=160;#地图宽
my $mapH=15;#地图高
my $maxW=16;#栅格宽
my $maxH=15;#栅格高
$scrpic="toolbar.bmp";#需要切割的地图
my $widthnum=int($mapW/$maxW);#水平栅格数
my $heightnum=int($mapH/$maxH);#垂直栅格数
for (my $i=0;$i<=$heightnum;$i++) {
for (my $j=0;$j <=$widthnum;$j++) {
my $mapX=$j*$maxW;#水平位置
my $mapY=$i*$maxH;#垂直位置
$exec_str="convert -crop 0x0+$mapX+$mapY $scrpic $i"."_"."$j.jpg";
print "$exec_str\n";
system($exec_str);
 }
}